0 POKE53280,11:POKE53281,0:PRINT"[147]":POKE650,128
2 IFA=0THENA=1:LOAD".TWO IN ONE/ML",8,1
4 M=21504
6 PRINT"[147][142]"TAB(12)"[154]TWO IN ONE V1.0"
8 PRINT""TAB(6)"COPYRIGHT 1987  BY NICK PECK[151]"
10 PRINT"  ";:FORL=1TO18:PRINT"[197][197]";:NEXT:PRINT
12 PRINT"  [152]REMEMBER:"
14 PRINT"     CTRL-F5 ...... FLIP BETWEEN"
16 PRINTTAB(20)"SECTIONS ONE AND":PRINTTAB(20)"TWO.[151]"
18 PRINT"  ";:FORL=1TO18:PRINT"[210][210]";:NEXT:PRINT
20 PRINT""
22 PRINTTAB(5)"[154]SECTION ONE BYTES FREE:      [157][157][157][157][157][157][150]";M-2048-4
24 PRINTTAB(5)"[154]SECTION TWO BYTES FREE:      [157][157][157][157][157][157][150]";38909-M+2049
26 PRINT"[152]    PRESS   + [146] OR  - [146]  TO INCREASE OR[145][145]"
28 PRINTTAB(11)"[164][164][164]    [164][164][164]"
30 PRINT"    DECREASE THE SIZE OF SECTION ONE."
32 PRINT"    PRESS  RETURN [146] WHEN YOU ARE DONE."
33 PRINT"    PRESS  A [146] TO ABORT"
36 PRINT"[151]  ";:FORL=1TO18:PRINT"[210][210]";:NEXT
38 WAIT198,255:GETR$:IFR$=CHR$(13)THEN48
39 IFR$="A"THEN60000
40 IFR$="+"ANDM<39936THENM=M+1024
42 IFR$="-"ANDM>3072THENM=M-1024
44 GOTO20
46 REM SET UP BASIC POINTER VALUES
48 M=M-1:POKE43,1:POKE44,8:H=INT(M/256):POKE55,M-H*256:POKE56,H
50 M=M+1:H=INT(M/256):POKE764,M-H*256:POKE765,H:POKE766,0:POKE767,160
52 SYS51975:NEW:REM ENABLE TWO IN ONE
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8